﻿Imports System

Namespace System.Workflow.ComponentModel.Compiler
    <AttributeUsage((AttributeTargets.Interface Or AttributeTargets.Class), AllowMultiple:=False, Inherited:=True)> _
    Public NotInheritable Class ActivityValidatorAttribute
        Inherits Attribute
        ' Methods
        Public Sub New(ByVal validatorTypeName As String)
            Me.validatorTypeName = validatorTypeName
        End Sub

        Public Sub New(ByVal validatorType As Type)
            If (Not validatorType Is Nothing) Then
                Me.validatorTypeName = validatorType.AssemblyQualifiedName
            End If
        End Sub


        ' Properties
        Public ReadOnly Property ValidatorTypeName As String
            Get
                Return Me.validatorTypeName
            End Get
        End Property


        ' Fields
        Private validatorTypeName As String
    End Class
End Namespace

